home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / lern / lern338.d64 / ch002 titrator (.txt) < prev    next >
Commodore BASIC  |  1995-08-09  |  7KB  |  226 lines
  1. 0 POKE59500,12
  2. 1 DIME$(36):DIMR$(30):S$=""
  3. 2 GOSUB4000
  4. 4 GOSUB7000
  5. 5 PRINT"[147]
  6. 6 SS[178]0:M[178]4:N[178]1:FD[178]0:SD[178]0:EP[178][181](128[172][187](TI))
  7. 10 [141]20:[141]3000:[137]500
  8. 20 [153]"       (null)NEW(null)TAN0
  9. 30 PRINT"       [217] [146][212][192]
  10. 31 [153]" GETWAIT     (null) WAIT(null)TAN1
  11. 32 PRINT" [161][146]     [217] [146][212][192]
  12. 33 [153]" GETWAIT     (null) WAIT(null)TAN2
  13. 34 PRINT" [161][146]     [217] [146][212][192]
  14. 35 [153]" GETWAIT     (null) WAIT(null)TAN3
  15. 36 PRINT" [161][146][192][192][192][192][192][170] [180][146][192]
  16. 37 [153]" GETWAIT     (null) WAIT(null)TAN4
  17. 38 PRINT" [161][146]     [217] [146][212][192]
  18. 39 [153]" GETWAIT     (null) WAIT(null)TAN5
  19. 40 PRINT" [161][146]     [217] [146][212][192]
  20. 41 [153]" GETWAIT     (null) WAIT(null)TAN6
  21. 42 PRINT" [161][146]     [217] [146][212][192]
  22. 43 [153]" GETWAIT     (null) WAIT(null)TAN7
  23. 44 PRINT" [161][146]     [217] [146][212][192]
  24. 50 [153]" GETWAIT     (null)TOWAIT(null) "
  25. 55 [153]" GETWAIT    (null) (null) WAIT(null)(null)
  26. 60 PRINT" [161][146]     [217][163][146][212] "
  27. 70 PRINT" [161][146]      V
  28. 90 [153]" GETWAIT         "
  29. 92 [153]" GETWAIT   THEN     (null)
  30. 94 PRINT" [161][146]   [167][192][192][192][192][192][165]
  31. 95 [153]"  WAIT   THEN     FN
  32. 96 PRINT"[162][162][162][162][162][162][162][162][162][162][162][162][162][162]";
  33. 98 RETURN
  34. 150 PRINT"[146][209][157][157][157][157][157][157][209] [221] [146][209][214][146][157][209]":RETURN
  35. 175 PRINT"[146] [157][157][157][157][157][157][209] [209] [146][209][215][146][157][160]"
  36. 182 PRINT"
  37. 185 [153]" 
  38. 186 PRINT" ":RETURN
  39. 187 PRINT"[214]
  40. 188 [129]P[178]1[164]30:[130]P
  41. 190 [153]"ON*
  42. 191 FORP=1TO25:NEXTP
  43. 193 PRINT"[145]+
  44. 194 [129]P[178]1[164]20:[130]P
  45. 195 [153]"ONTAN
  46. 196 IFX=8THENPRINT"[145][162]
  47. 197 [139]X[178]7[167][153]"ONNOT
  48. 199 RETURN
  49. 500 K=PEEK(151):IFK=255THEN500
  50. 510 IFK=6THENGOSUB795
  51. 520 IFK=10THENGOSUB1040
  52. 525 IFK=1THENGOTO5000
  53. 530 GOTO500
  54. 795 GOSUB150:DL=1
  55. 799 PRINT"
  56. 800 [153]"(null)
  57. 840 PRINT"[221]
  58. 850 [153]"(null)
  59. 880 FD=FD+1:GOSUB900:K=PEEK(151):IFK=6THEN880
  60. 885 GOSUB187:GOSUB175:RETURN
  61. 900 M=M+1:IFM=8THENN=N+1:M=0
  62. 901 IFSS=0THENSS=1:TS=TI
  63. 903 IFN>17THENGOSUB175:GOTO6
  64. 905 PRINT"";
  65. 908 FORJ=1TON:PRINT"";:NEXTJ:PRINT"[145]";:IFM=0THENPRINT"[145] [157]";
  66. 910 PRINTL$(M)
  67. 915 DD=EP-FD-SD
  68. 917 ML=INT((FD+SD)/.16)/100:PRINT""TAB(17);ML
  69. 920 IFDD>25THEN990
  70. 922 IFDD>16THENX=0:GOTO940
  71. 924 IFDD>11THENX=1:GOTO940
  72. 925 IFDD>8THENX=2:GOTO940
  73. 926 IFDD>5THENX=3:GOTO940
  74. 928 IFDD>3THENX=4:GOTO940
  75. 930 IFDD>1THENX=5:GOTO940
  76. 932 IFDD>0THENX=6:GOTO940
  77. 934 IFDD=0THENX=7:GOTO940
  78. 936 X=8
  79. 940 FORE=X*4+1TOX*4+4:PRINT""E$(E)
  80. 950 FORP=1TODL:NEXTP:NEXTE
  81. 990 RETURN
  82. 1040 GOSUB150:DL=50
  83. 1050 SD=SD+1:PRINT""
  84. 1100 FORD=1TO3:PRINT".";:FORP=1TO40:NEXTP:PRINT"[157] ":NEXTD:GOSUB187
  85. 1105 GOSUB900
  86. 1110 K=PEEK(151):IFK=10THEN1050
  87. 1200 GOSUB175:RETURN
  88. 1210 GOTO790
  89. 3000 PRINT"[146]   [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  90. 3005 PRINTTAB(18)" COMPUTER TITRATOR "
  91. 3010 PRINTTAB(18)"TO OPERATE BURETTE"
  92. 3020 PRINTTAB(15)"PRESS:-"
  93. 3025 PRINTTAB(16)"[164][164][164][164][164]
  94. 3030 [153][163]15)" SPACEWAIT....FOR FULL FLOW
  95. 3040 PRINTTAB(15)"   0[146].....FOR DROPS ONLY
  96. 3050 [153][163]15)"   =WAIT.....WHEN FINISHED
  97. 3055 PRINTTAB(15)"THERE ARE 5 MLS OF ALKALI"
  98. 3060 PRINTTAB(23)"ML 1.000 M HCL
  99. 3070 [142]
  100. 4000 [129]I[178]1[164]8:[135]L$(I):[130]I:[131]"TAB(WAIT","USRWAIT","FREWAIT","NEW","POS","AND","TO"," "
  101. 4005 [129]I[178]1[164]36:[135]E$(I):[130]I
  102. 4010 [131]"NOT","TAN","TAN","TAN"
  103. 4020 [131]"NEW","NOT","NOT","TAN"
  104. 4030 [131]"NEW","CMDNOTNEWNOT","CMDNOTNOTNOT","CMDTANTANTAN"
  105. 4040 [131]"NEW","CMDNOTNEWNOTCMDCMDSPC(","CMDNOTNEWNOTCMDCMDNOT","CMDCMDTANTANTANTANTANCMDCMDCMDCMDCMDCLOSECLOSECLOSECLOSECLOSE"
  106. 4050 [131]"NEW","CMDNEWNEWNEWCMDCMDNOT","CMDCMDNOTNEWNEWNEWNOTCMDCMDCMDCMDSPC(NOTSPC(","CMDCMDTANTANTANTANTANCMDCMDCMDCMD   "
  107. 4060 [131]"NEW","CMDNEWNEWNEWCMDCMDNOT","CMDCMDNOTNOTNOTNOTNOTCMDCMDCMDCMDCMDSPC(SPC(SPC(SPC(SPC(","CMDCMDTANTANTANTANTANCMDCMDCMDCMDCMDCLOSECLOSECLOSECLOSECLOSE"
  108. 4070 [131]"NEW","CMDNEWNEWNEWCMDCMD ","CMDCMDNOTNEWNEWNEWNOTCMDCMDCMDCMDCMDSPC(SPC(NOTWAITSPC(SPC(","CMDCMDTANTANTANTANTANCMDCMDCMDCMDCMDCLOSECLOSECLOSECLOSECLOSE"
  109. 4080 [131]"NEW","CMDNEWNEWNEWCMDCMD ","CMDCMDNEWNEWNEWNEWNEWCMDCMDCMDCMDCMDSPC(NOT NOTWAITSPC(","CMDCMDNOTNOTNOTNOTNOTCMDCMDCMDCMDCMDSPC(SPC(SPC(SPC(SPC("
  110. 4090 [131]"CMDCMDNEWNEWNEWNEWNEWCMDCMDCMDCMDCMD     ","","",""
  111. 4105 [129]I[178]1[164]30:[135]R$(I):[130]I
  112. 4110 [131]" NOT AT END POINT! "," .....IS THAT ALL? "," STOPPED TOO SOON! "
  113. 4120 [131]"  YOU STILL THERE? ","BETTER TRY NURSING!","  YOU LEFT HANDED? "
  114. 4130 [131]"  ARE YOU COLD?  ","  PAST END POINT!  "," YOU BLEW THAT ONE!"
  115. 4140 [131]"EASY!..LEAD FINGERS"," SNZZZZ! TOO SLOW! ","DON'T TAKE ALL DAY!"
  116. 4150 [131]"  YOU A UNION MAN? ","  TRY ANNTHER JOB! "," DRIP! DRIP! DRIP! "
  117. 4160 [131]" BETTER TRY AGAIN! "," YOU NEED PRACTICE!","NOT TOO BAD"
  118. 4170 [131]"  I'VE SEEN WORSE! "," ...YOU FEELING OK?","  THAT'S THE IDEA! "
  119. 4180 [131]" ....LOOKING GOOD! ","  COULD BE FASTER  ","....NEARLY PERFECT!"
  120. 4190 [131]" ...GETTING BETTER!","NOT BAD AT ALL!"," PRETTY GOOD JOB!"
  121. 4200 [131]"PERFECT..WELL DONE!","    GREAT WORK!    ","LOOKING FOR A JOB?"
  122. 4490 [142]
  123. 5000 TM[178][181]((TI[171]TS)[173]60):R[178]0
  124. 5002 [139]X[178]7[167]R[178][181]((FD[171]SD[170]1)[173](FD[170]SD[171]1)[172]100)
  125. 5013 [153]""[163]18)"TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO"
  126. 5015 [153][163]18)" ANALYSIS COMPLETE "
  127. 5017 [129]P[178]1[164]1000:[130]P
  128. 5018 [139]X[179][177]7[167][153]"ONONON"[163]17)" SAMPLE WAS RUINED!!!":[137]5024
  129. 5019 ML[178][181](1000[172]ML[173]5)[173]1000:B(1)[178]ML[170].1:B(5)[178]ML[171].2:B(3)[178]ML[170].3:B(4)[178]ML[171].4
  130. 5020 B(7)[178]ML[170].5:B(6)[178]ML[172]2:B(2)[178]ML[172]5:[141]8000:[141]9000
  131. 5022 [139]A[178]ML[167][153][163]18)"ONONONONONONONONCORRECT":[137]5024
  132. 5023 [153][163]16)"ONONONONONONONONI AM AFRAID THE":[153][163]16)"ANSWER IS ";ML;"M"
  133. 5024 [129]P[178]1[164]2000:[130]P
  134. 5025 [153][163]18)"TOOK YOU"TM"SECONDS"
  135. 5027 [129]P[178]1[164]1000:[130]P
  136. 5030 [153][163]18)"YOUR RATING.."R"%"
  137. 5037 [129]P[178]1[164]500:[130]P
  138. 5040 [153][163]18)" "
  139. 5400 [139]X[179]7[167]V[178]0:[137]5480
  140. 5405 [139]X[178]8[167]V[178]1:[137]5480
  141. 5410 [139]R[179]60[167]V[178]2:[137]5480
  142. 5415 [139]R[179]85[167]V[178]3:[137]5480
  143. 5420 [139]R[179]95[167]V[178]4:[137]5480
  144. 5430 V[178]5
  145. 5480 [153][163]18)""R$(5[172]V[170]5[172][187](1)[170]1)
  146. 5500 [151]158,0
  147. 5503 [129]P[178]1[164]2000:[130]P
  148. 5505 [153][163]19)"    TRY AGAIN?    ";
  149. 5510 [161]Z$:[139]Z$[178]""[167]5510
  150. 5520 [139]Z$[178]"Y"[167]5
  151. 5550 [153]"LOAD        BYE":[144]
  152. 6000 Q$[178]""
  153. 6004 H$[178]""
  154. 6006 B$[178]"                                    "
  155. 6050 [153]"LOADTHE PROBLEM IS TO DETERMINE THE STRENGTH"
  156. 6051 [153]"     OF AN ALKALINE SOLUTION (NAOH)."
  157. 6052 [129]P[178]1[164]3000:[130]P
  158. 6060 [153]H$"     WE TAKE A SMALL BEAKER..."
  159. 6062 [129]P[178]1[164]2000:[130]P
  160. 6064 [153]Q$"THEN     (null)CMDCMDCMDCMDCMDCMDCMDTHEN     FNCMDCMDCMDCMDCMDCMDCMDTHEN     FNCMDCMDCMDCMDCMDCMDTAB(TAB(TAB(TAB(TAB("
  161. 6066 [129]P[178]1[164]3000:[130]P
  162. 6070 [153]H$"AND PUT IN 5 ML OF THE ALKALI..."
  163. 6072 [129]P[178]1[164]2000:[130]P
  164. 6075 [153]Q$"TANTANTANTANTAN"
  165. 6076 [129]P[178]1[164]3000:[130]P
  166. 6080 [153]H$"THEN WE ADD SOME WATER (HOH)...   "
  167. 6082 [129]P[178]1[164]2000:[130]P
  168. 6085 [153]Q$"TANTANTANTANTANCMDCMDCMDCMDCMD     "
  169. 6086 [129]P[178]1[164]3000:[130]P
  170. 6090 [153]H$"NOW, ACID (HCL) REACTS WITH ALKALI"
  171. 6092 [153]"    TO PRODUCE SALT (NACL) AND WATER"
  172. 6094 [129]P[178]1[164]4000:[130]P
  173. 6098 [153]H$B$:[153]B$
  174. 6100 [153]H$"    NAOH + HCL LENLENLEN> NACL + HOH"
  175. 6101 [153]:[153]"      ALKALI  ACID     SALT  WATER"
  176. 6102 [129]P[178]1[164]8000:[130]P
  177. 6110 [153]H$"CMDCMDIF WE ADD AN INDICATOR TO THE SOLUTION